home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / spiele / publicdomain / amigamud-tt / magic / utility.m < prev   
Text File  |  1996-07-05  |  756b  |  48 lines
  1. /*
  2.  * magic/utilities.m - utilites
  3.  */
  4.  
  5.  
  6. /***************** Sub routines ****************/
  7.  
  8. define t_util proc NameToThing(string name)thing:
  9.   character ch;
  10.   thing agent;
  11.  
  12.   if name="me" then
  13.     agent:=Me();
  14.   else
  15.     ch := Character(name);
  16.     if ch = nil then
  17.       agent := FindMachineIndexed(name, 1);
  18.     else
  19.       agent := CharacterThing(ch);
  20.     fi;
  21.   fi;
  22.   agent
  23. corp;
  24.  
  25. define t_util proc utility public parseDiceString(string s)int:
  26.   int l,i,dice,acc;
  27.   string v;
  28.  
  29.   acc:=0;
  30.   l:=Length(s)-1;
  31.   i:=0;
  32.   while i<l do
  33.     v:=SubString(s,i,1);
  34.     if v="+" then
  35.       v:=SubString(s,i+1,l-i);
  36.       acc:=acc+StringToInt(v);
  37.       i:=l;
  38.     else
  39.       dice:=StringToInt(v);
  40.       acc:=acc+Random(dice);
  41.       i:=i+1;
  42.     fi;
  43.   od;
  44.  
  45.   acc
  46. corp;
  47.  
  48.